home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / animate.rexx next >
OS/2 REXX Batch file  |  1978-11-24  |  1KB  |  48 lines
  1. /* */
  2. options results
  3.  
  4. address ami2d 'save(ram:temp.dat)'
  5.  
  6. if ~show('ports', "NLN2D") then do
  7.     address command 'run ami2d:bin/nln2d'
  8.     do while ~show('ports', "NLN2D")
  9.     end
  10. end
  11.  
  12. do forever
  13.     call postmsg(0,11,"formkf -                  ",AMI2D)
  14.     address nln2d 'read(ram:temp.dat)'
  15.     address nln2d 'formkf'
  16.  
  17.     call postmsg(0,11,"nlsolve -",AMI2D)
  18.     address ami2d 'save(ram:temp.dat)'
  19.     address nln2d 'read(ram:temp.dat)'
  20.     address nln2d 'solve'
  21.     parse var result du
  22.     call postmsg(0,11,"nlsolve - done\"result,AMI2D)
  23.     address nln2d 'save(ram:temp.dat)'
  24.     address ami2d 'read(ram:temp.dat)'
  25.     address ami2d 'plot'
  26.     address ami2d 'plot(deform)'
  27.  
  28.     address ami2d 'get frame'
  29.     if length(result) > 0 then frame = result
  30.     else frame = 0
  31.     frame = frame + 1
  32.     address ami2d 'set frame 'frame
  33.     call postmsg(0,11,"frame "frame,AMI2D)
  34.  
  35.     filename = 'ram:ami2d'frame'.ilbm'
  36.     address command 'ami2d:bin/grabpub -pAMI2D -b 'filename
  37.  
  38.     if frame = 1 then call open('list','ram:ami2d.lst','W')
  39.     else call open('list','ram:ami2d.lst','A')
  40.     call writeln('list',filename)
  41.     call close('list')
  42.  
  43.     call postmsg(0,11,"grab - done",AMI2D)
  44.  
  45.     if du < 1e-4 then leave
  46. end
  47. exit
  48.